home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / SpaceEscape •••• / SpaceEscape ееее / card_30370.txt < prev    next >
Text File  |  1990-10-02  |  2KB  |  84 lines
  1. -- card: 30370 from stack: in
  2. -- bmap block id: 30494
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: vault
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put "This vault-like door is made of solid steel and is probably"& " about three feet thick." into field "Info"
  9.   pass opencard
  10. end opencard
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: A003
  16. -- rect: left=161 top=302 right=323 bottom=192
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: OK
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   global filter
  28.   if filter is "yes" then
  29.     beep
  30.     exit mouseup
  31.   end if
  32.   global donteat
  33.   get bkgnd field "do what"
  34.   if the number of words in it > 1 then
  35.     beep 2
  36.     oneword
  37.     exit mouseup
  38.   end if
  39.   if it contains "open" or it contains "push" or it contains "pull" or it contains "unlock" or it contains "turn" or it contains "knock" then
  40.     put "The guard slaps you away and asks you for some identificatio"& "n."into field "info"
  41.     exit mouseup
  42.   end if
  43.   if it contains "close" or it contains "shut" then
  44.     put "The door is already closed." into field "info"
  45.   end if
  46.   if it contains "examine" or it contains "look" then
  47.     send "opencard" to this card
  48.     exit mouseup
  49.   end if
  50.   if it contains "hit" or it contains "kick" or it contains "punch" then
  51.     ouch
  52.     exit mouseup
  53.   end if
  54.   if it contains "get" or it contains "move" then
  55.     put "You give up once you realize"& " that you are not strong enough to rip the door off its hinges." into field "info"
  56.     exit mouseup
  57.   end if
  58.   if it contains "eat" or it contains "consume" then
  59.     put donteat into field "info"
  60.     exit mouseup
  61.   end if
  62.   if it contains "go" then
  63.     put "That would work, except you're not sure how you're going"& " to go about walking through solid steel." into field "info"
  64.     exit mouseup
  65.   end if
  66.   if it is "" then
  67.     put "Speak up.  I can't hear you." into field "info"
  68.     exit mouseup
  69.   end if
  70.   idunno
  71. end mouseUp
  72.  
  73. on cont
  74. end cont
  75.  
  76.  
  77.  
  78. -- part contents for background part 2
  79. ----- text -----
  80. What would you like to do with the Art?
  81.  
  82. -- part contents for background part 7
  83. ----- text -----
  84. Vault